#!/usr/bin/perl -w
use strict;
package MediaWiki::Object;

sub new {
	my ($type) = @_;
	my $self = {};
	bless $self, $type;
	return $self;
}

sub getQuery {
	my ($self) = @_;
	my $hash = {};
	foreach (keys %$self) {
		$hash->{$_} = $self->{$_};
	}
	$hash->{format} = 'xml';
	return $hash;
}
1;
